1 OPEN15,8,15:GOSUB19
2 PRINT#15,"I0":GOSUB19
3 OPEN2,8,2,"#":GOSUB19
4 DIMA$(15):PRINT#15,"U1:2,0";18;0:GOSUB19
5 PRINT#15,"B-P:2,144":GOSUB19
6 FORI=0TO15:GET#2,A$(I):GOSUB19:NEXT
7 PRINT"[147]ANCIEN TITRE:":FORI=0TO15:PRINT"";A$(I);"[146]";:NEXT
8 PRINT:PRINT"DESIREZ-VOUS LE CHANGER (O/N)? ";
9 GETA$:IFA$<>"O"ANDA$<>"N"THEN9
10 PRINTA$:IFA$="N"THEN18
11 INPUT"NOUVEAU TITRE ";A$
12 IFLEN(A$)>16THENA$=LEFT$(A$,16)
13 IFLEN(A$)<16THENA$=A$+" ":GOTO13
14 PRINT#15,"B-P:2,144":GOSUB19
15 FORI=1TO16:PRINT#2,MID$(A$,I,1);:GOSUB19:NEXT
16 PRINT#15,"U2:2,0,18,0":GOSUB19
17 PRINT#15,"I0":GOSUB19
18 FORI=1TO15:CLOSEI:NEXT:END
19 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
20 PRINT:PRINTEN;EM$;ET;ES:GOTO18